Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue54/Persist/FEditPerson.dfm

Text File | 2000-01-09 | 3.7 KB | 170 lines

object FormEditPerson: TFormEditPerson
  Left = 444
  Top = 117
  Width = 463
  Height = 388
  Caption = 'FormEditPerson'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 0
    Width = 448
    Height = 85
    Anchors = [akLeft, akTop, akRight]
    Caption = ' Name details '
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 28
      Width = 49
      Height = 13
      Caption = '&Last name'
      FocusControl = eLastName
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 48
      Height = 13
      Caption = '&First name'
      FocusControl = eFirstName
    end
    object Label3: TLabel
      Left = 216
      Top = 28
      Width = 29
      Height = 13
      Caption = '&Initials'
      FocusControl = eInitials
    end
    object Label4: TLabel
      Left = 216
      Top = 56
      Width = 20
      Height = 13
      Caption = '&Title'
      FocusControl = GroupBox1
    end
    object eLastName: TEdit
      Left = 84
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'eLastName'
      OnChange = eLastNameChange
    end
    object eFirstName: TEdit
      Left = 84
      Top = 52
      Width = 121
      Height = 21
      TabOrder = 1
      Text = 'eFirstName'
      OnChange = eLastNameChange
    end
    object eInitials: TEdit
      Left = 284
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 2
      Text = 'eInitials'
      OnChange = eLastNameChange
    end
    object cbTitle: TComboBox
      Left = 284
      Top = 52
      Width = 121
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      OnChange = eLastNameChange
      Items.Strings = (
        ''
        'Mr'
        'Mrs'
        'Miss'
        'Ms'
        'Dr'
        'Rev'
        'Prof')
    end
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 88
    Width = 229
    Height = 181
    Caption = ' Phone, Fax, EMail  && Web Addresses '
    TabOrder = 1
    object LVEAddress: TtiListView
      Left = 8
      Top = 21
      Width = 213
      Height = 152
      Anchors = [akLeft, akTop, akRight, akBottom]
      ViewStyle = vsReport
      RowSelect = True
      OnEdit = LVEAddressEdit
      OnNew = LVEAddressNew
      OnDelete = LVEAddressDelete
      OnFilterData = LVEAddressFilterData
    end
  end
  object GroupBox3: TGroupBox
    Left = 236
    Top = 88
    Width = 216
    Height = 182
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Postal && Street Addresses '
    TabOrder = 2
    object LVAddress: TtiListView
      Left = 8
      Top = 20
      Width = 200
      Height = 154
      Anchors = [akLeft, akTop, akRight, akBottom]
      ViewStyle = vsReport
      RowSelect = True
      OnEdit = LVAddressEdit
      OnNew = LVAddressNew
      OnDelete = LVAddressDelete
      OnFilterData = LVEAddressFilterData
    end
  end
  object GroupBox4: TGroupBox
    Left = 4
    Top = 272
    Width = 448
    Height = 86
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = ' Notes '
    TabOrder = 3
    object mNotes: TMemo
      Left = 8
      Top = 16
      Width = 432
      Height = 65
      Anchors = [akLeft, akTop, akRight, akBottom]
      Lines.Strings = (
        'mNotes')
      TabOrder = 0
      OnChange = eLastNameChange
    end
  end
end